﻿Namespace BE

    Public Class Bitacora_BE

        Enum _Criticidad
            ALTA
            MEDIA
            BAJA
        End Enum

        Private mId As Integer
        Private mIdUser As Integer
        Private mNick As String
        Private mFecha As DateTime
        Private mDescripcion As String
        Private mCriticidad As _Criticidad
        Private mBorrado As Boolean
        Private mDVH As Integer

        Public Property Id As Integer
            Get
                Return mId
            End Get
            Set(value As Integer)
                mId = value
            End Set
        End Property

        Public Property IdUser() As Integer
            Get
                Return mIdUser
            End Get
            Set(ByVal value As Integer)
                mIdUser = value
            End Set
        End Property

        Public Property Nick As String
            Get
                Return mNick
            End Get
            Set(value As String)
                mNick = value
            End Set
        End Property

        Public Property Fecha As DateTime
            Get
                Return mFecha
            End Get
            Set(ByVal value As DateTime)
                mFecha = value
            End Set
        End Property

        Public Property Descripcion As String
            Get
                Return mDescripcion
            End Get
            Set(ByVal value As String)
                mDescripcion = value
            End Set
        End Property

        Public Property Criticidad As _Criticidad
            Get
                Return mCriticidad
            End Get
            Set(ByVal value As _Criticidad)
                mCriticidad = value
            End Set
        End Property

        Public Property Borrado As Boolean
            Get
                Return mBorrado
            End Get
            Set(ByVal value As Boolean)
                mBorrado = value
            End Set
        End Property

        Public Property DVH As Integer
            Get
                Return mDVH
            End Get
            Set(ByVal value As Integer)
                mDVH = value
            End Set
        End Property

    End Class

End Namespace


